home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu352.dms / pu352.adf / install-printer < prev    next >
Text File  |  1993-03-09  |  12KB  |  365 lines
  1. ;Commodore install script ©1993 Nick Lines / First Computer Centre
  2. ;  This one installs the selected printer to devs:printers
  3. ;  gives a choice as well!
  4. ; "$VER: Install-printer_V1.00ß"
  5.  
  6. (complete 0)
  7. (set version (/ (getversion) 65536))
  8. (set @default-dest "devs:Printers")
  9.  
  10. (set PrinterMake   (askchoice (prompt "Welcome to First Computer Centre's exclusive\n"
  11.                                       "printer installer\n\n"
  12.                                       "Please click on the make of printer you have just purchased, "
  13.                                       "or on 'Help' for help\n")
  14.                              (choices "Canon"
  15.                                       "Citizen"
  16.                                       "Hewlett-Packard"
  17.                                       "Panasonic"
  18.                                       "Star"
  19.                              )
  20.                              (help "Install_printer ©1993 Nick Lines/"
  21.                                    "First Computer Centre\n"
  22.                                    "\nClick on the make of your new printer, "
  23.                                    "then click on proceed.")
  24.                    )
  25. )
  26. (if (= PrinterMake 0)
  27. (   (set Printer (askchoice (prompt "Which particular printer do you own?")
  28.                            (choices "BJ10ex"
  29.                                     "BJ20"
  30.                                     "BJ200"
  31.                                     "BJ300")
  32.  
  33.                            (help "Click on the Canon printer you own, then "
  34.                                  "on proceed")
  35.                 )
  36.    )
  37.    (set CanonBits (askoptions (prompt "Which parts do you want installing?")
  38.                               (choices "Printer Driver"
  39.                                        "CanonPrefs"
  40.                                        "Font DownLoad (not BJ300)"
  41.                                        "Documentation"
  42.                               )
  43.                               (help "Always install the printer driver.\n"
  44.                                "CanonPrefs allows better customisation of"
  45.                                " your printers settings, as does downloading"
  46.                                " of fonts.\nDocumentation is also a must!")
  47.                   )
  48.    )
  49.  
  50.    (if (IN CanonBits 0)
  51.       ((if (= Printer 0)
  52.         (set error (trap 4
  53.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonBJ10") 
  54.                    (dest "devs:printers"))        ))
  55.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  56.       )
  57.  
  58.       (if (= Printer 1)
  59.         (set error (trap 4
  60.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonBJ10") 
  61.                    (dest "devs:printers"))        ))
  62.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  63.       )
  64.  
  65.       (if (= Printer 2)
  66.         (set error (trap 4
  67.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonBJ10") 
  68.                    (dest "devs:printers"))        ))
  69.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  70.       )
  71.  
  72.       (if (= Printer 3)
  73.         (set error (trap 4
  74.         (copyfiles (source "Install-printer:Store/Canon/BJ300/CanonBJ300") 
  75.                    (dest "devs:printers"))        ))
  76.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  77.       )
  78.  
  79.  
  80.    ))
  81.    (if (AND (IN CanonBits 1 ) (> version 36))
  82.       ((if (= Printer 0)
  83.         (
  84.         (set error (trap 4
  85.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref") 
  86.                    (dest "sys:prefs"))        ))
  87.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  88.         (set error (trap 4
  89.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref.info") 
  90.                    (dest "sys:prefs"))        ))
  91.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  92.  
  93.  
  94.         )
  95.       )
  96.       (if (= Printer 1);
  97.          (
  98.         (set error (trap 4
  99.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref") 
  100.                    (dest "sys:prefs"))        ))
  101.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  102.         (set error (trap 4
  103.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref.info") 
  104.                    (dest "sys:prefs"))        ))
  105.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  106.  
  107.  
  108.         )
  109.       )
  110.       (if (= Printer 2)
  111.         (
  112.         (set error (trap 4
  113.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref") 
  114.                    (dest "sys:prefs"))        ))
  115.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  116.         (set error (trap 4
  117.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref.info") 
  118.                    (dest "sys:prefs"))        ))
  119.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  120.  
  121.  
  122.         )
  123.       )
  124.       (if (= Printer 3)
  125.         (
  126.         (set error (trap 4
  127.         (copyfiles (source "Install-printer:Store/Canon/BJ300/CanonPref") 
  128.                    (dest "sys:prefs"))        ))
  129.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  130.         (set error (trap 4
  131.         (copyfiles (source "Install-printer:Store/Canon/BJ300/CanonPref.info") 
  132.                    (dest "sys:prefs"))        ))
  133.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  134.  
  135.  
  136.         )
  137.       )
  138.  
  139.  
  140.  
  141.    ))
  142.  
  143.    (if (AND (IN CanonBits 2 ) (> version 36))
  144.       ((if (= Printer 0)
  145.         (
  146.         (set error (trap 4
  147.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop") 
  148.                    (dest "sys:prefs"))        ))
  149.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  150.         (set error (trap 4
  151.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop.info") 
  152.                    (dest "sys:prefs"))        ))
  153.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  154.  
  155.  
  156.         )
  157.       )
  158.       (if (= Printer 1);
  159.          (
  160.         (set error (trap 4
  161.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop") 
  162.                    (dest "sys:prefs"))        ))
  163.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  164.         (set error (trap 4
  165.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop.info") 
  166.                    (dest "sys:prefs"))        ))
  167.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  168.  
  169.  
  170.         )
  171.       )
  172.       (if (= Printer 2)
  173.         (
  174.         (set error (trap 4
  175.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop") 
  176.                    (dest "sys:prefs"))        ))
  177.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  178.         (set error (trap 4
  179.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop.info") 
  180.                    (dest "sys:prefs"))        ))
  181.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  182.  
  183.  
  184.         )
  185.       )
  186.       (if (= Printer 3)
  187.    (message "FontShop not available for BJ300 :(")
  188.       )
  189.  
  190.  
  191.    ))
  192.  
  193.    (if (IN CanonBits 3 )
  194.       ((if (= Printer 0)
  195.         (
  196.         (set error (trap 4
  197.         (copyfiles (source "Install-printer:Docs/BJ10.doc")
  198.                    (dest "sys:prefs"))        ))
  199.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  200.         (set error (trap 4
  201.         (copyfiles (source "Install-printer:Docs/BJ10.doc.info")
  202.                    (dest "sys:prefs"))        ))
  203.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  204.  
  205.  
  206.         )
  207.       )
  208.       (if (= Printer 1);
  209.          (
  210.         (set error (trap 4
  211.         (copyfiles (source "Install-printer:Docs/BJ10.doc")
  212.                    (dest "sys:prefs"))        ))
  213.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  214.         (set error (trap 4
  215.         (copyfiles (source "Install-printer:Docs/BJ10.doc.info")
  216.                    (dest "sys:prefs"))        ))
  217.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  218.  
  219.  
  220.         )
  221.       )
  222.       (if (= Printer 2)
  223.         (
  224.         (set error (trap 4
  225.         (copyfiles (source "Install-printer:Docs/BJ10.doc")
  226.                    (dest "sys:prefs"))        ))
  227.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  228.         (set error (trap 4
  229.         (copyfiles (source "Install-printer:Docs/BJ10.doc.info")
  230.                    (dest "sys:prefs"))        ))
  231.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  232.  
  233.  
  234.         )
  235.       )
  236.       (if (= Printer 3)
  237.         (
  238.         (set error (trap 4
  239.         (copyfiles (source "Install-printer:Docs/BJ300.doc")
  240.                    (dest "sys:prefs"))        ))
  241.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  242.         (set error (trap 4
  243.         (copyfiles (source "Install-printer:Docs/BJ300.doc.info")
  244.                    (dest "sys:prefs"))        ))
  245.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  246.  
  247.  
  248.         )
  249.       )
  250.  
  251.  
  252.  
  253.    ))
  254.  
  255.  
  256.  
  257. ))
  258.  
  259. (if (= PrinterMake 1)
  260. (
  261.    (message ("%s%s%s" 
  262.              "Please run the Citizen Print Manager Install program,\n"
  263.              "which can be found on the disk you should have been \n"
  264.              "given with the printer."))
  265. )
  266. )
  267.  
  268. (if (= PrinterMake 2)
  269. (   (set Printer (askchoice (prompt "Which particular printer do you own?")
  270.                            (choices "DeskJet 500 mono  "
  271.                                     "DeskJet 500 Colour"
  272.                                     "DeskJet 550 Colour"
  273.                            )
  274.                            (help "Click on the HP printer you own, then"
  275.                                  " on proceed."
  276.                            )
  277.                 )
  278.    )
  279.    (if (= Printer 0)
  280.         (set error (trap 4
  281.         (copyfiles (source "Install-printer:Store/HP/HP_DeskJet500") 
  282.                    (dest "devs:printers"))        ))
  283.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  284.    )
  285.  
  286.    (if (= Printer 1)
  287.         (set error (trap 4
  288.         (copyfiles (source "Install-printer:Store/HP/HP_DeskJet500C") 
  289.                    (dest "devs:printers"))        ))
  290.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  291.    )
  292.  
  293.    (if (= Printer 2)
  294.         (set error (trap 4
  295.         (copyfiles (source "Install-printer:Store/HP/HP_DeskJet550C") 
  296.                    (dest "devs:printers"))        ))
  297.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  298.    )
  299.   
  300.  
  301.  
  302.  
  303. )
  304. )
  305. (if (= PrinterMake 3)
  306. (   (set Printer (askchoice (prompt "Which particular printer do you own?")
  307.                            (choices "KXP - 2180 (9 pin colour)"
  308.                                     "KXP - 2123 (24pin colour)"
  309.                            )
  310.                            (help "Click on the Panasonic printer you own,"
  311.                                  " then on proceed."
  312.                            )
  313.                 )
  314.    )
  315.  
  316.    (if (= Printer 0)
  317.         (set error (trap 4
  318.         (copyfiles (source "Install-printer:Store/Panasonic/9Pin") 
  319.                    (dest "devs:printers"))        ))
  320.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  321.    )
  322.  
  323.    (if (= Printer 1)
  324.         (set error (trap 4
  325.         (copyfiles (source "Install-printer:Store/Epson/24Pin") 
  326.                    (dest "devs:printers"))        ))
  327.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  328.    )
  329.  
  330.  
  331. )
  332. )
  333.  
  334. (if (= PrinterMake 4)
  335. (   (set Printer (askchoice (prompt "Which particular printer do you own?")
  336.                            (choices "9 pin colour or mono)"
  337.                                     "24pin colour or mono)"
  338.                            )
  339.                            (help "Click on the Star printer you own,"
  340.                                  " then on proceed."
  341.                            )
  342.                 )
  343.    )
  344.  
  345.    (if (= Printer 0)
  346.         (set error (trap 4
  347.         (copyfiles (source "Install-printer:Store/Star/9Pin/Star9Plus") 
  348.                    (dest "devs:printers"))        ))
  349.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  350.    )
  351.  
  352.    (if (= Printer 1)
  353.         (set error (trap 4
  354.         (copyfiles (source "Install-printer:Store/Star/24Pin/Star24Plus") 
  355.                    (dest "devs:printers"))        ))
  356.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  357.    )
  358.  
  359.  
  360. )
  361. )
  362. (if (<> PrinterMake 1)
  363. (message ("Don't forget to set your new printer in Preferences!\n %s"
  364.           "\nPlease read the documentation if you haven't already done so" )))
  365.